home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / maxicras.arc / MAXICRAS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-03-23  |  2.9 KB  |  43 lines
  1. 10  'Copyright (c) 1986 by Exador, Inc.
  2. 15  'MAXICRAS.LOADER - Version B.7\SANYO
  3. 17  SCREEN 0,0
  4. 18  KEY OFF:KEY 1,"":KEY 2,"":KEY 3,"":KEY 4,"":KEY 5,"":KEY 6,"":KEY 7,"":KEY 8,"":KEY 9,"":KEY 10,"":CLS:DIM M$(12),F$(23):COMMON M$(),F$(),PDISK$,DDISK$,PDDISK$
  5. 46  GOSUB 112:COLOR VAL(F$(15)),VAL(F$(5)):CLS:CLS
  6. 47  IF F$(23)="8" THEN COLOR VAL(F$(15)),VAL(F$(5)):CLS:CLS:WIDTH 80:LOCATE 1,1,0 ELSE COLOR VAL(F$(15)),VAL(F$(5)),VAL(F$(6)):WIDTH "LPT1:",80:LOCATE 1,1,0
  7. 48  GOTO 300
  8. 107  FOR I=1 TO 2000:NEXT I:FOR I=1 TO 12:READ M$(I):NEXT:FOR I=1 TO 4:READ F$(I):NEXT:FOR I=1 TO 4:READ F$(18+I):NEXT:FOR I=1 TO 3:F$(I)=DDISK$+F$(I):NEXT:GOTO 120
  9. 112  OPEN"I",1,"MAXICRAS.TER":INPUT#1,PDISK$,DDISK$:IF INSTR(DDISK$,"\")>0 THEN PDDISK$=DDISK$ ELSE PDDISK$=PDISK$
  10. 113  FOR I=5 TO 18:INPUT#1,F$(I):NEXT:INPUT#1,F$(23):CLOSE:RETURN
  11. 115  DATA"January","February","March","April","May","June","July","August","September","October","November","December","TRANSACT.","ACCENTRY.","NOTES.","1","BALANCE.DAT","ACCOUNTS.DAT","ADDRESS.DAT","INPAYOF.DAT
  12. 120  IF F$(6)="4" THEN F$(6)=F$(15)
  13. 121  CHAIN PDISK$+"MASMENU
  14. 200  CLS:LOCATE 3,33:PRINT"MAXI C.R.A.S.
  15. 201  LOCATE 4,22:PRINT"A Check Register Accounting System
  16. 202  LOCATE 5,26:PRINT"For MSDOS Computer Systems
  17. 210  LOCATE 6,34:PRINT"Version B.2":LOCATE 7,34:PRINT"March, 1986":LOCATE 9,34
  18. 220  PRINT"Written by:":PRINT:LOCATE 10,34:PRINT "O. E. Dial":LOCATE 11,37:PRINT "and":LOCATE 12,32:PRINT "Dale A. Kubler":LOCATE 14,30:PRINT "Copywrite (c) 1986"
  19. 230  LOCATE 16,26:PRINT"Published & Distributed by":LOCATE 17,33:PRINT "EXADOR, INC.":LOCATE 18,29:PRINT "981 Courtenay Drive":LOCATE 19,30:PRINT "Atlanta, GA  30306":LOCATE 20,32:PRINT "(404) 876-1969"
  20. 299  GOTO 107
  21. 300  CLS:LOCATE 1,18:PRINT "============== S H A R E W A R E =============="
  22. 310  LOCATE 2,30:PRINT "User-Supported Software"
  23. 320  LOCATE 4,6:PRINT "|===================================================================|"
  24. 330  LOCATE 5,6:PRINT "|    If you have received this program from another user and        |"
  25. 340  LOCATE 6,6:PRINT "|    find it of value, your $25 contribution will be appreciated.   |"
  26. 350  LOCATE 7,6:PRINT "|                                                                   |"
  27. 360  LOCATE 8,6:PRINT "|                            EXADOR, INC.                           |"
  28. 370  LOCATE 9,6:PRINT "|                        981 Courtenay Drive                        |"
  29. 380  LOCATE 10,6:PRINT"|                        Atlanta, GA   30306                        |"
  30. 390  LOCATE 11,6:PRINT "|                                                                   |"
  31. 400  LOCATE 12,6:PRINT"|     You are encouraged to copy this program as described below.   |"
  32. 410  LOCATE 13,6:PRINT "|===================================================================|"
  33. 420  LOCATE 15,5:PRINT "** NOTICE:  Users of this program are granted a limited license to"
  34. 430  LOCATE 16,8:PRINT "make copies of this program for trial use by others on a private"
  35. 440  LOCATE 17,8:PRINT "non-commercial basis.  This limited license does not include --"
  36. 450  LOCATE 18,5:PRINT "1. Distributing this program in connection with any other product."
  37. 460  LOCATE 19,5:PRINT "2. Making the program available for any consideration or 'disk fee'."
  38. 470  LOCATE 20,5:PRINT "3. Distributing the program in modified form.  Please cooperate."
  39. 480  LOCATE 22,5:PRINT "Copyright (c) 1986 - Exador, Inc."
  40. 490  LOCATE 23,5:PRINT "Hit any key to continue ..."
  41. 500  GOGO$=INKEY$:IF GOGO$="" THEN GOTO 500
  42. 510  GOTO 200
  43.